10 REM ******************
20 REM * DEMOPROGRAMM 1 *
30 REM ******************
40 :
50 :
60 IF A=0 THEN A=1:LOAD"PULL-DOWN-OBJECT",8,1:REM ROUTINEN NACHLADEN
70 :
100 DIM A$(40):PRINT CHR$(147)
110 K$="FILE DISK EDIT HELP"
120 A$(1)="      "
130 A$(2)="LOAD"
140 A$(3)="SAVE"
150 A$(4)="COPY"
160 A$(5)="RENAME"
170 A$(6)="DELETE"
180 A$(7)="          "
190 A$(8)="DIRECTORY"
200 A$(9)="NAME"
210 A$(10)="ID"
220 A$(11)="COPY"
230 A$(12)="DELETE"
240 A$(13)="VALIDATE"
250 A$(14)="INITIALISE"
260 A$(15)="            "
270 A$(16)="MOVE BLOCK"
280 A$(17)="COPY BLOCK"
290 A$(18)="DELETE BLOCK"
300 A$(19)="SAVE BLOCK"
310 A$(20)="LOAD BLOCK"
320 A$(21)="PRINT BLOCK"
330 A$(22)="              "
340 A$(23)="NOTEPAD"
350 A$(24)="CALCULATOR"
360 A$(25)="DATABASE"
370 A$(26)="WORD PROCESSOR"
380 A$(27)="SPREADSHEET"
390 A$(28)="FILE-HANDLING"
400 A$(29)="DISK-HANDLING"
410 A$(30)="  "
500 PRINT CHR$(19)
504 PRINT:PRINT"DIES IST EIN TEST DER ROUTINEN"
505 PRINT"ZUR VERWALTUNG VON PULL-DOWN-MENUES"
510 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
520 PRINT "AUFRUF : CTRL-TASTE DRUECKEN"
521 PRINT
522 PRINT"STEUERUNG: CURSORTASTEN ZUM BLAETTERN"
523 PRINT"VON MENUE ZU MENUE UND ZUR AUSWAHL IM"
524 PRINT"UNTERMENUE. ANWAHL: 'RETURN'"
525 PRINT
526 PRINT"ALTERNATIV:'CTRL'+MENUEANFANGSBUCHSTABE"
527 PRINT"UND MENUEPUNKTAUSWAHL DURCH"
528 PRINT"JEWEILIGEN ANFANGSBUCHSTABEN";
530 IF PEEK(653)<>4 THEN 530
540 SYS 50697,K$,A$(1)
550 PRINT CHR$(19)
560 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
565 PRINT"GETROFFENE AUSWAHL:"
570 PRINT "MENUE NR.    [157][157][157][157][157]"PEEK(167)+1
580 PRINT "MENUEPUNKT NR.    [157][157][157][157]"PEEK(168)+1"
590 [137] 500